﻿Imports OMANE.Common.Model.Interfaces
Imports System.Collections.ObjectModel
Imports Actuariat
Imports PTIC_GestionBDD
Imports PTIC_Util

Public Class ReferentielTablesMaintienINCINV_Tx
    Inherits ReferentielTablesTravail
    Implements IReferentielTablesINCINV_Tx

    Private m_connection As IConnection
    Private m_ListeTraitements As ListeTraitementsBase(Of String)

    Public Sub New(ByVal InfosTables As ReadOnlyCollection(Of IInfoTableReferentiel),
                   ByVal ListeTraitements As ListeTraitementsBase(Of String))
        MyBase.New(InfosTables)
        m_ListeTraitements = ListeTraitements
    End Sub

    Private m_FactoryINCINV_Tx As ITablesMaintienINCINV_TxFactory
    Public ReadOnly Property Factory As Actuariat.ITablesMaintienINCINV_TxFactory Implements Interfaces.IReferentielTablesINCINV_Tx.Factory
        Get
            If m_FactoryINCINV_Tx Is Nothing Then
                m_FactoryINCINV_Tx = New TablesMaintienINCINV_TxFactory(InfoTables, m_ListeTraitements)
            End If
            Return m_FactoryINCINV_Tx
        End Get
    End Property
    Public ReadOnly Property TraitementsFactory As Interfaces.IReferentielTablesTravailTraitements Implements Interfaces.IReferentielTablesINCINV_Tx.TraitementsFactory
        Get
            If m_FactoryINCINV_Tx Is Nothing Then
                m_FactoryINCINV_Tx = New TablesMaintienINCINV_TxFactory(InfoTables, m_ListeTraitements)
            End If
            Return m_FactoryINCINV_Tx
        End Get
    End Property

End Class
